┌────────────────────────────────┐ │ ░░░ ░░▓ ░▓▓ ███ ▓▓░ ▓░░ │ │ ~ M O O N ~ │ └────────────────────────────────┘
prd-web-01.centraldc.gr
LOCATION:
/usr/share/doc/perl-MRO-Compat/t
☗ ROOT
↻ REFRESH
✎ EDIT FILE
EDITING: 15pkg_gen.t
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 3; use MRO::Compat; { package Foo; our @ISA = qw//; } my $f_gen = mro::get_pkg_gen('Foo'); ok($f_gen > 0, 'Foo pkg_gen > 0'); { no warnings 'once'; *Foo::foo_func = sub { 123 }; } my $new_f_gen = mro::get_pkg_gen('Foo'); ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for methods'); $f_gen = $new_f_gen; @Foo::ISA = qw/Bar/; $new_f_gen = mro::get_pkg_gen('Foo'); ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for @ISA');
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 10basic.t
T
1.2 KB
2024-10-29 00:00
EDIT
📄 15pkg_gen.t
T
501 B
2024-10-29 00:00
EDIT
📄 20mros.t
T
2.2 KB
2024-10-29 00:00
EDIT